COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(COMMENT BPS 45000. REGPDL 10000. specpdl 3000. array 120.)
C00006 ENDMK
C⊗;
(COMMENT BPS 45000. REGPDL 10000. specpdl 3000. array 120.)
(alloc '(list (10000 10000 nil)))
(PROGN
(SETSYNTAX 35. 2 35.)
(COND ((STATUS FEATURES NEWIO)
       (FASLOAD REQUIRE FAS DSK (MAC LSP))
       (FASLOAD EREAD FAS DSK (MAC LSP))
       (FASLOAD DIRECT FAS DSK (MAC LSP))))
(FASLOAD DEMON FAS DSK (AID LSP))
(COND ((STATUS NOFEATURES NEWIO)
       (FASLOAD ESCI FAS DSK (AID LSP))))
(FASLOAD UTIL FAS DSK (AID LSP))
(FASLOAD LET FAS DSK (MAC LSP))
(FASLOAD SHARPM FAS DSK (MAC LSP))
(FASLOAD LOADED FAS DSK (MAC LSP))
(SETQ PURE -2 *PURE 5000.)
(EDIT)
(FASLOAD STEP FAS DSK (MAC LSP))
(FASLOAD GRIND FAS DSK (MAC LSP))
(SETQ DEFAULTF '((DSK (MAC LSP)) * *))
(FASLOAD REQALL FAS DSK (MAC LSP))
(COND ((GET 'BACKQ 'VERSION))
      (T (FASLOAD BACKQ)))
(FASLOAD DEFMACRO)
(FASLOAD GRINDE)
(FASLOAD SORT)
(FASLOAD STRUCT)
(FASLOAD SETF)
(FASLOAD HELP)
(FASLOAD DEBUG)
(FASLOAD BRAKE)
(FASLOAD TRACE)
(FASLOAD CLOSE)
(COND ((EQ (STATUS  LISPV) '/2027)
       (SETQ CLOSE-FILE-START-ADDRESS 185.)))
(FASLOAD MACEX FAS DSK (MAC LSP))
(FASLOAD MATCH)
(FASLOAD UMATCH)
(FASLOAD SETNAME)
(SETQ PURE NIL *PURE NIL)
(OR (GET 'MACRODEF 'MACRO)
    (FASLOAD MACROD FAS DSK (MAC LSP)))
(FASLOAD FILE FAS DSK (AID LSP))
(SSTATUS TTYINT 200. '+internal-↑B-break)
(SSTATUS TTYINT 232. '+internal-↑B-break)
(setq em:no-init t)
(fasload emaclsp fas dsk (mac lsp))
(fasload eaid fas dsk (mac lsp))
(setq backquote-expand-when 'read)

(defprop yh (yh rpg) ppn)
(defprop com (mac lsp) ppn)
(defprop krl (krl pam) ppn)
(defprop nil (nil s1) ppn)

(SETQ %/#DRAFT ())

(COND ((STATUS FEATURES NEWIO)
       (CLOSE INFILE)
       (INPUSH -1))
      (T (UCLOSE)))

(gc)(gctwa t)
(sstatus gctime 0)
(SUSPEND '|Save sys edit| '(EDIT SHR SYS (1 3)))
(setq ibase 10. base 10.)
;(ESCI-ENB)
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR))) 
(REMPROP 'EDIT 'EDIT-INIT-FILE)
(REMPROP 'EDIT 'EDIT-INIT-FILE-LOAD-MESSAGE)
(SETQ *NOPOINT T)
(COND ((UPROBE EDITOR INI)
       (SETQ %INITIALIZE-EDITOR? T)
       (PUTPROP 'EDIT '(EDITOR INI) 'EDIT-INIT-FILE)
       (putprop 'edit '|;loading EDITOR.INI| 'edit-init-file-load-message)))   
(terpri)
(princ '|;Edit  |)
(edit1 nil)
(cond (si:ecalledp
       (setq -em:herald- ())
       (em:mail-interface-initialize)))
t)